#!/usr/bin/perl

use strict;
use warnings;

while (my $dna = <DATA>) {
  my @count = map { eval "\$dna =~ tr/$_/$_/" } qw(A C G T);
  print "@count\n";
}

__DATA__
GGCTCCATACCATACTCTGCATCGCTGACATCTCTCGCGGACGGGGTAAATCAGCTAAGGACGTGCACCGTAATTACATGAAAGACTGTGGACAATGAAAGGGACCTTAGAGGGCAATGGACTCTTGGGGGAAAGGCGGAGGAAATCACCATGAGTCGTCAACCGTTTCGTCTCCAGCCCAATTGCGAAAGTAGTATAACTCCCTAAGGTTACAGCTCAGCGACGTATCAGCGCGCAAATCTATCGTCTATTCTTCACTCGATGTTGCGCTTAGATATTACGTACAGGAGGGCAGGTATTAGGAGTTACCCGGCAAATGGCAATCAAATCACCACTTGGTTGATCCTCCTCGTGTACGCCGTTCGGGTGCCGCGAATTTAGTAGCAAACAACGATAACACGGCGTCCTTCTGTATTCTAAACATCAATGGCCGGGCTCATTTCTGCGCGAACGGGAGCAGCGGGCTAAATTACTCCTGGGCGCTATGTGTAGACAACCTGACAACCATCCGTATGAGTACGCGGAATCGCGACCAGCGGGTCCGAACTAGGAGGATACCACGAATAACAACCCGGAGGAGCTTTATTTTCGTGGCTTTGGCTTCTTTCCCCCCGGGATCACTGTCAAAAATAGCCTAAGGCTGGGTAAATTCCTAATGAGCTCATCTATAGTTGTTAGTTGCACAGTATTCGACCGCAAGTGCATCATCGTGCCGTTTGAAGTTACAGCCGAGTATGAGCATATATGTGTACGCGGGCCGGCTAGGCGTTAGAACTTAAGCCACGGAAGACTATGGTGCACGGAATGGGTCTAA
